 /^[ \t]*@record/ { def($0,Records); next }
                  { print use($0,Records) }
 
 function def(line,records,  words,rec,fields,i,tmp) {
    split(line,words," ")
    rec    = words[2]
    fields = words[3]
    records["\\y" rec "\\y"]=fields
    for(i=0;i<10;i++) {
        tmp = fields
        gsub(/,/,i",",tmp)
        records["\\y" rec i "\\y"] = tmp i
        }
 }
 function use(str,records,   rec) {
     for(rec in records)
         gsub(rec,records[rec],str)
     return str
 }    
